1Ø REM FEMEIE E dE dE dE AE AE kok dE E ka LE EEE 


20 REM RAMDISK 
BACKUP & RESTORE 


UTILITY 


3Ø REM (C)1988 by Richard Hurd 
for the public domain 


40 REM REQUIRES 1 4Ø (DD) OR 
1 8Ø (QD) FLOPPY DRIVE 


5Ø REM 1 FORMATTED DISK FOR 
THE DRIVE. FORMATTED EITHE 


R WITH THE DISK FORMAT PROG 
- OR THE EXT. BASIC COMMAN 

: FORMAT "n", WHERE N=NUM 
BER OF RAM CHIPS. 


100 REM 433433 3 dd dt dt E E dd dE E E E E 


110 LET read=4ØØØl: LET write=4 
0021: LET trak=40Ø00: LET mem=4 
0075 

128 PRINT TAB 13;"LKDOS";AT 2,1 
$ "RAMDISK BACKUP/RESTORE UTILIT 
yY" 

125 PRINT AT 6,3;"1) Backup RA 
M-DISK"”’TAB 3;"2) Restore RAM 
-DISK"”*°TAB 7;"Choose 1 Or 2" 

130 IF INKEY$="" THEN GO TO 13 
ø 

135 IF INKEY$<"1" OR INKEY$>*"2" 

THEN BEEP .2,Ø: GO TO 139 

14Ø IF INKEY$="1" THEN LET sou 
rc=4: INPUT "BackUp "; FLASH 13 
" TO "; FLASH Øs" Which Drive? 
"sdest 

145 IF INKEY$="1" THEN IF dest 
<Ø OR dest>3 THEN BEEP .2,0: G 
O TO 140 

15Øø IF INKEY$="2" THEN LET des 
t=4: INPUT "Restore "; FLASH 1; 
” FROM "; FLASH Ø;" Which Drive 
? ”:;sourc 

155 IF INKEY$="2" THEN IF sour 
c<Ø OR dest>3 THEN BEEP .2,0: 
GO TO 150 
 16Ø CLS : IF sourc=4 THEN PRIN 
T ””"Insert Backup Disk In Driv 
e H";dest3".*" i 

165 IF dest=4 THEN PRINT ***In 
sert Source Disk In Drive %";so 
urcz".* 

170 IF dest<>4 THEN PRINT °’??? 
>>> TAB 4; "Press SpaceBar To Ba 
ckup" 

175 IF sourc<>4 THEN PRINT *”” 


>>>» TAB 4;"Press SpaceBar To R 
estore” 


180 PRINT ”TAB 8;"##+#+ RAMDISK +* 
*3" 
183 IF INKEYS<>"" THEN GO TO 1 


185 IF INKEY$="" THEN GO TO 18 


19Ø IF dest<>4 THEN PRINT ’’”’T 
AB 6;"Backing Up RAM-DISK" 

195 IF dest=4 THEN PRINT *”*TA 
B 7;"Restoring RAM-DISK" 

20Ø PRINT #4: GO TO sourc 

205 POKE trak,Ø: RANDOMIZE USR 
read 

21Ø LET stks=PEEK (mem+2Ø)*PEEK 
(mem+21 ) 

22Ø PRINT #4: GO TO dest 

23Ø RANDOMIZE USR write 

24Ø FOR f=1 TO (stks-1)/ 

25Ø PRINT #4: GO TO sourc 

260 POKE trak,f: RANDOMIZE USR 


270 PRINT #4: GO TO dest 
28Ø RANDOMIZE USR write 
290 NEXT f 
3ØØ CLS : PRINT #4: CAT "°", 
31ø STOP 
9000 REM cartridge access/move 
code subroutines 


9Ø1Ø RESTORE 9100 

9Ø2Ø FOR f=4ØØ01 TO 40074 

9Ø3Ø READ code 

9Ø4Ø POKE f,code 

9Ø5Ø NEXT f 

9Ø6Ø RUN 

91ØØ DATA 205,1Ø5,156,58,64, 156 
911Ø DATA 50,29,32, 205, 126,0Ø 
9120 DATA 205,123,0,205,115,156 
913Ø DATA 24,25,205, 1Ø5, 156, 58 
9140 DATA 64,156,50,29,32, 205 
915Ø DATA 126,0,2Ø5, 127, 156, 2Ø5 
916Ø DATA 120,0,24,5,243, 205 
917Ø DATA 98,0,2Ø1,58, 100,08 
918Ø DATA 251,201,33,112,32,17 
9190 DATA 139,156,1,Ø, 2Ø, 237 
92ØØ DATA 176,201,33,139,156,17 
921Ø DATA 112,32,1,Ø, 2Ø, 237 
922Ø DATA 176,201 

9995 PAPER 7: INK 97: BORDER 7: C 
LEAR 39999: RANDOMIZE USR 10Ø: 
OPEN &4,"dd" 

99968 GO TO 9000 | 
9999 PRINT #4: SAVE "RDBKUP.B1" 
LINE 97995 


